home *** CD-ROM | disk | FTP | other *** search
- 1 rem ******************************
- 2 rem ** **
- 3 rem ** character dump **
- 4 rem ** by jim sanders **
- 5 rem ** for ahoy! magazine **
- 6 rem ** **
- 7 rem ******************************
- 8 poke 53280,12:poke53281,12:print""
- 10 rem*data loader for dump 52992
- 20 print"[147]":cs=0
- 30 for i=52992 to 53140:read a:poke i,a
- 40 cs=cs+a:nexti
- 45 printcs
- 50 ifcs<>18597 then print"****error in data statements****":end
- 55 print"to activate f7 key sys 52992"
- 60 print"to change to f1 poke 53024,4"
- 65 print"to change to f3 poke 53024,5"
- 70 print"to change to f5 poke 53024,6"
- 75 print"to change to f7 poke 53024,3"
- 80 print"type 'new' <return> after poke"
- 85 print"hit run/stop to disable"
- 90 print"sys 52992 then press f7":print"to print these instructions"
- 95 print"character dump may be activated from":print"program by line entry:sys 53034"
- 100 new
- 52992 data120,173,20,3,141,169,2,173
- 53000 data21,3,141,170,2,169,29,141
- 53008 data20,3,169,207,141,21,3,169
- 53016 data0,133,254,88,96,165,197,201
- 53024 data3,208,4,165,254,240,3,108
- 53032 data169,2,169,255,133,254,169,4
- 53040 data133,186,169,126,133,184,169,0
- 53048 data160,4,133,113,132,114,133,183
- 53056 data133,185,32,192,255,166,184,32
- 53064 data201,255,162,25,169,13,32,210
- 53072 data255,32,225,255,240,46,160,0
- 53080 data177,113,133,103,41,63,6,103
- 53088 data36,103,16,2,9,128,112,2
- 53096 data9,64,32,210,255,200,192,40
- 53104 data208,230,152,24,101,113,133,113
- 53112 data144,2,230,114,202,208,205,169
- 53120 data13,32,210,255,32,204,255,169
- 53128 data8,32,195,255,169,0,133,254
- 53136 data76,188,254,96,255
-